0 PRINT"[147][211]CHOENER, BESSER, GROESSER:
1 [153]"ASCATNSTR$VAL(null) LEN(null)(null)(null)VALLEN(null)RIGHT$(null)(null) - 2 - ":[153]"VON (null)ASCHA (null)EICHERT
2 PRINT"[194]ITTE WARTEN [211]IE, ES WIRD NACHGELADEN.":POKE53280,6:POKE53281,14
9 REM FADER COLLECTION 2 NACHLADEN:
10 IF A=0 THEN A=1:LOAD"FADER COLLECT. 2",8,1
20 REM DEMOBILD NACHLADEN:
30 SYS34583,"?PIC F.C. 2 BILD"
40 REM
50 REM FADER COLLECTION 2 DEMO
70 REM WRITTEN AND COPYRIGHT 1994 BY
80 REM        SASCHA REICHERT
90 REM
100 REM DEMOHAUPTPROGRAMM:
110 GOSUB 1000  :REM ERSTEN ANLEITUNGS-
120 REM              TEXT AUSGEBEN.
130 GOSUB 9000  :REM DEMO ALLER EFFEKTE
140 REM              AUFRUFEN.
150 GOSUB 2000  :REM DER ZWEITE TEXT.
160 GOSUB 5000  :REM EINIGE EFFEKTE
170 REM              MIT ANDEREN
180 REM              PARAMETERN ZEIGEN.
190 GOSUB 9300  :REM ALLE EFFEKTE MIT
200 REM              SOUND FX UND
210 REM              UNTERSCHIEDLICHEN
220 REM              FARBEN
230 GOSUB 9500  :REM ENDE TEXT AUSGEBEN.
900 END
1000 PRINT"[147][144][198]ADER [195]OLLECTION 2 [[196][197][205][207]]
1005 [153]"                    VON (null)ASCHA (null)EICHERT
1010 PRINT"----------------------------------------
1020 [153]"ASC.LEN. 2 IST EIN (null)AKET VON VALFFEKTEN
1030 PRINT"ZUM [197]IN- UND [193]USBLENDEN VON
1040 [153]"(null)ULTICOLOURBITMAPS IM CHR$RAFIKFORMAT DES
1050 PRINT"[203][207][193][204][193]-[208]AINTERS.
1060 [153]"ATNBER AUCH CHR$RAFIKEN VON ANDEREN
1070 PRINT"[205]ALPROGRAMMEN, DIE DAS [203][207][193][204][193]-[198]ORMAT
1080 [153]"BENUTZEN, KOENNEN EIN/AUSGEBLENDET
1090 PRINT"WERDEN."
1095 GOSUB 9900
1100 PRINT"[193]MICA [208]AINT KANN Z.[194]. AUCH IM [203][207][193][204][193]-
1110 [153]"ASCORMAT ABSPEICHERN, WOBEI UEBRIGENS ZUR
1120 PRINT"[214]ERWENDUNG MIT [198].[195]. 2 KEINE [203]ORREKTUR
1130 [153]"DER (null)TARTADRESSE AUF $6000 NOETIG IST,
1140 PRINT"[198].[195]. 2 BESITZT EINE EIGENE [204]ADEROUTINE
1150 [153]"WELCHE ZUR RICHTIGEN ATNDRESSE LAEDT.
1160 GOSUB 9900
1200 PRINT"[196]IE [194]ILDER WERDEN NICHT WIE UEBLICH
1210 [153]"IN EINE LEERE PEEKITMAP KOPIERT, WAS
1220 PRINT"EINE [208]LATZVERSCHWENDUNG DARSTELLT
1225 [153]"(WIE UEBRIGENS BEI DER ERSTEN
1226 PRINT"'[198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]'),
1230 [153]"BEI ASC.LEN. 2 WERDEN (null)PRITES UEBER DIE
1240 PRINT"[194]ITMAP GELEGT. [196]IESE [211]PRITES WERDEN
1250 [153]"GELOESCHT UND BESCHRIEBEN, WODURCH DER
1260 PRINT"[197]INDRUCK DER [213]EBERBLENDUNG ENTSTEHT.
1270 [141] 9900
1300 [153]"RIGHT$M FOLGENDEN WERDEN ALLE 27 VALFFEKTE
1310 PRINT"NACHEINANDER AUFGERUFEN, MIT DER
1320 [153]"CHR$ESCHWINDIGKEIT 1 UND DER (null)RIGINALFARBE
1330 PRINT"DES [196]EMOBILDES, SOWIE [207][200][206][197] [211]OUND[198][216],
1340 [153]"UEBER DIE ASC.LEN. 2 AUCH VERFUEGT.
1350 GOSUB 9900
1360 RETURN
2000 PRINT"[144][147][213]EBRIGENS:
2010 [153]"ASC.LEN. 2 KANN EIN PEEKILD ABER AUCH MIT
2020 PRINT"JEDER BELIEBIGEN [198]ARBE EINBLENDEN,
2030 [153]"UND MIT EINER ANDEREN WIEDER AUSBLENDEN.
2040 GOSUB 9900
2100 PRINT"[213][206][196] [206][213][206]: [196]ER [193]UFRUF VON [198].[195]. 2
2110 [153]"(AUS RIGHT$HREN EIGENEN (null)ROGRAMMEN HERAUS)
2120 PRINT"[193]UFRUF IN [194][193][211][201][195]:
2130 [153]"(null)UERST MUSS ASC.LEN. 2 INS (null)AM GEHOLT
2140 PRINT"WERDEN, UND ZWAR WIE JEDES
2150 [153]"ATNSSEMBLERPROGRAMM:
2160 PRINT"ERSTE [218]EILE [201]HRES [194][193][211][201][195]PROGRAMMS:
2170 [153]"10 RIGHT$ASC ATN=0 (null)LEFT$VAL(null) ATN=1 : (null)(null)ATNSTR$"[199](34)"ASC.LEN. 2"[199](34)",8,1"
2180 [141] 9900
2200 [153]"STR$ANN MUSS NATUERLICH NOCH DIE PEEKITMAP
2210 PRINT"GELADEN WERDEN, WOFUER [198].[195]. 2 EINEN
2220 [153]"BESONDEREN PEEKEFEHL ZUR (null)ERFUEGUNG STELLT:
2230 PRINT"[211][217][211] 34583,"CHR$(34)"<[206]AME DES [203][207][193][204][193]-[208][201][195][211]>"CHR$(34)
2240 PRINT"[205]AN KANN DAS [194]ILD NATUERLICH WIE
2250 [153]"ASC.LEN. 2 LADEN, ABER WENN (null)IE SPAETER IN
2260 PRINT"[201]HREM [208]ROGRAMM NOCH EIN ANDERES [194]ILD
2270 [153]"BENUTZEN WOLLEN, GEHT DIES NUR
2280 PRINT"MIT DEM [211][217][211] 34583-[194]EFEHL !!!"
2290 GOSUB 9900
2300 PRINT"[213]M [198].[195]. 2 NUN AUFZURUFEN, IST DIE
2310 [153]"(null)EBERGABE EINIGER (null)ARAMETER NOETIG.
2320 PRINT"[196]IE [213]EBERGABE IST VOR JEDEM [197][201][206]BLENDEN
2330 [153]"NEU VORZUNEHMEN,
2340 PRINT"WIE FOLGT:
2350 [153]"(null)(null)(null)VAL 2,VALINBLENDEFFEKT  (0-26)
2360 PRINT"[208][207][203][197] 3,[193]USBLENDEFFEKT  (0-26)
2370 [153]"(null)(null)(null)VAL 4,CHR$ESCHWINDIGKEIT (0-15)
2380 PRINT"[208][207][203][197] 5,[198]ARBE (GROESSER 15:[207]RIGINALFARBE
2390 [153]"              0-15:ASCARBE VON 0-15)
2400 PRINT"[208][207][203][197] 6,[211]OUND [198][216] [193][206](=1) ODER [193][213][211] (=0)
2410 [141] 9900
2500 [153]"STR$AS VALIN- UND ATNUSBLENDEN WIRD JEWEILS
2510 PRINT"DURCH EIN [211][217][211] 34580 AUSGELOEST,
2520 [153]"BZW. IN ATNSSEMBLER MIT   MID$(null)(null) $8714
2530 PRINT"([208]ARAMETER-[213]EBERGABE IN [193]SSEMBLER
2540 [153]" ENTSPRECHEND PEEKATN(null)RIGHT$LEN)
2550 GOSUB 9900
2600 PRINT"[213]ND JETZT NOCH EINIGE [197]FFEKTDEMOS,
2610 [153]"MIT VERSCHIEDENEN VALFFEKTEN,
2620 PRINT"[199]ESCHWINDIGKEITEN, [198]ARBEN UND MIT [211]OUND!
2630 [153]"(null)IEL (null)PASS BEIM (null)USCHAUEN UND VALINBAUEN
2640 PRINT"IN EIGENE [208]ROGRAMME !!!
2645 [141] 9900
2650 [153]"(null)(null)LENLEFT$ VALRIGHT$(null) LEFT$RIGHT$(null)(null)VALRIGHT$(null) STR$ATN(null)(null):
2660 PRINT"[194]EI [194]ENUTZUNG VON [198].[195]. 2 DARF [201]HR
2670 [153]"PEEKATN(null)RIGHT$LENPROGRAMM MAXIMAL 53 BLOCKS GROSS
2680 PRINT"SEIN.
2690 [153]"ATNCHTUNG ATNSSEMBLERPROGRAMMIERER:
2700 PRINT"[198].[195]. 2 SOWIE DIE [194]ITMAP BELEGEN DAS
2710 [153]"(null)ATN(null) VON $4000 BIS $9FFF !!!
2720 GOSUB 9900
2730 RETURN
5000 REM EINIGE EFFEKTE ALS DEMO ZEIGEN:
5010 POKE 2,22 :REM EFFEKT 22 EINBLEND.
5020 POKE 3,18 :REM EFFEKT 18 AUSBLEND.
5030 POKE 4,15 :REM SPEED 15 (LANGSAM)
5040 POKE 5,13 :REM FARBE 13 (HELLGRUEN)
5050 POKE 6,1  :REM SOUND FX AN
5100 SYS 34580 :REM AUFRUF (EINBLEND.)
5150 GOSUB 9200:REM WARTESCHLEIFE
5200 POKE 4,0  :REM SPEED 0 (SCHNELL)
5210 POKE 5,6  :REM FARBE 6 (BLAU)
5300 SYS 34580 :REM AUFRUF (AUSBLEND.)
5350 GOSUB 9200
5400 REM
5410 POKE 2,7  :REM EFFEKT 7  EINBLEND.
5420 POKE 3,20 :REM EFFEKT 20 AUSBLEND.
5430 POKE 4,5  :REM SPEED 5
5440 POKE 5,7  :REM GELB
5460 POKE 6,1  :REM SOUND FX AN
5470 SYS 34580 :REM AUFRUF (EINBLEND.)
5480 GOSUB 9200:REM WARTESCHLEIFE
5490 POKE 4,4  :REM SPEED 4
5500 POKE 5,6  :REM BLAU
5510 SYS 34580 :REM AUFRUF (AUSBLEND.)
5520 GOSUB 9200
5999 RETURN
8999 :
9000 REM ALLE EFFEKTE (0-26) WERDEN
9010 REM NACHEINANDER AUFGERUFEN
9015 :
9020 FOR EF=0 TO 26
9030 POKE 4,1   :REM SPEED 1.
9040 POKE 5,255 :REM ORIGINALFARBE.
9050 POKE 6,0   :REM SOUND AUS.
9060 POKE 2,EF  :REM EINBLENDEFFEKT=
9070 POKE 3,EF  :REM =AUSBLENDEFFEKT.
9080 :
9090 SYS 34580  :REM EFFEKT AUFRUFEN.
9100 GOSUB 9200 :REM WARTESCHLEIFE.
9110 SYS 34580  :REM EFFEKT AUFRUFEN.
9115 PRINT "[196]IES WAR [197]FFEKT [206]R.";EF
9120 GOSUB 9200 :REM WARTESCHLEIFE.
9125 GOSUB 9200
9127 PRINT"[147]"
9130 NEXT EF
9140 RETURN
9199 :
9200 REM WARTESCHLEIFE (ZWISCHEN DEN
9210 REM                EFFEKTEN    ):
9220 :
9230 FOR W=0 TO500:NEXT
9240 RETURN
9300 REM ALLE EFFEKTE (0-26) WERDEN
9310 REM NACHEINANDER AUFGERUFEN
9320 REM DIESMAL MIT SOUND AN !!!
9330 FOR EF=0 TO 26
9340 POKE 4,3   :REM SPEED 3.
9350 POKE 5,14  :REM HELLBLAU.
9360 POKE 6,1   :REM SOUND AN.
9370 POKE 2,EF  :REM EINBLENDEFFEKT=
9380 POKE 3,EF  :REM =AUSBLENDEFFEKT.
9390 :
9400 SYS 34580  :REM EFFEKT AUFRUFEN.
9410 GOSUB 9200 :REM WARTESCHLEIFE.
9412 POKE 4,0   :REM SPEED 0.
9415 POKE 5,6   :REM NORMALBLAU.
9420 SYS 34580  :REM EFFEKT AUFRUFEN.
9430 PRINT "[196]IES WAR [197]FFEKT [206]R.";EF;" MIT [211]OUND [198][216]"
9440 GOSUB 9200 :REM WARTESCHLEIFE.
9460 NEXT EF
9470 RETURN
9500 REM ENDE DES DEMOS (TEXT)
9510 PRINT"[144][147][212]JA, DAS WAR'S FUER HEUTE ...
9520 [153]"(null)ENN (null)IE SICH JETZT EINMAL DIE
9530 PRINT"GENAUE [193]NWENDUNG VON [198].[195]. 2
9540 [153]"ANSEHEN WOLLEN, BRAUCHEN (null)IE NUR
9550 PRINT"[204][201][211][212] EINGEBEN. [196]IESES [196]EMOPROGRAMM
9560 [153]"IST SELBSTVERSTAENDLICH NICHT
9570 PRINT"LIST-GESCHUETZT.
9580 [153]"(LEN)OPYRIGHT 1994 BY (null)ASCHA (null)EICHERT.
9590 RETURN
9900 REM AUF TASTENDRUCK WARTEN:
9910 PRINT"[194]ITTE EINE [212]ASTE DRUECKEN !!!"
9940 GET T$ : IF T$ = "" THEN 9940
9950 RETURN